Public Partial Class Top
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack() Then showData()
    End Sub

    Private Sub showData()
        UserID.Text = User.Identity.Name.Trim()
    End Sub

End Class